0 IFPEEK(760)=0THENPOKE760,1:PRINT"[147]":LOAD"GRAPHIX.O",8,1
1 IFPEEK(760)=1THENPOKE760,9:GOTO 460
2 IFPEEK(760)=2THENPOKE760,3:LOAD"TILES.O",8,1
3 IFPEEK(760)=3THEN1234
4 IFPEEK(760)=7THEN420
5 CLR:POKE52,127:POKE56,127:POKE 46,110:CLR
6 IFPEEK(760)=9THENPOKE760,2:GOTO2
7 IFPEEK(789)>207THENPOKE40704,PEEK(788):POKE40705,PEEK(789)
8 SYS32780:POKE53272,23:POKE 53280,6:POKE53281,6
9 PRINT"[147]":POKE767,0:POKE765,2
10 PRINT"[147]           [197]XPEDITION [193]MAZON"
14 IFPEEK(789)>207THENPOKE40704,PEEK(788):POKE40705,PEEK(789)
20 PRINT"   [195]OPYRIGHT 1984 BY [208]ENGUIN [211]OFTWARE"
30 PRINT"     [196]ESIGNED BY [215]ILLARD [208]HILLIPS"
35 PRINT"     [201]LLUSTRATIONS BY [199]REG [205]ALONE"
40 PRINT"            [208]LAYER'S OPTIONS"
50 PRINT"            ****************"
60 PRINT"       [214][146])IEW TITLE ILLUSTRATION"
70 PRINT"         [210][146])EVIEW INSTRUCTIONS"
80 PRINT"           [211][146])TART THE GAME"
90 PRINT"            [197][146])XIT THE GAME"
91 A$="[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]"
92 B$="[255][255][255][255]"
93 PRINT"[156]"A$A$;:FORA=1TO20:PRINTB$;:NEXT:PRINTA$A$"";
100 GETA$:IFA$=""THEN 100
110 IFA$="R"THEN200
120 IFA$="S"THEN300
130 IFA$="V"THEN400
140 IFA$="E"THEN500
150 GOTO100
200 LOAD"INS",8
300 Z=RND(-TI)
350 LOAD"FLINT",8
400 SYS32789:POKE53280,0:POKE53281,0
410 POKE760,7:LOAD"P1",8,1
420 GETAY$:IFAY$=""THEN420
425 POKE760,5
430 SYS32780
440 POKE 53280,6:POKE53281,6:GOTO100
460 SYS32789:POKE53280,0:POKE53281,0
470 LOAD"P1",8,1
500 PRINT"[147]          [208]RESS A KEY TO PLAY,
501 [153][163]7)"OR TURN YOUR COMPUTER OFF."
502 [161]A$:[139]A$[178]""[167]502
503 [137]10
1234 [139][194](759)[178]0[167][151]759,1:[147]"NM",8,1
1243 [139][194](759)[178]1[167][151]759,2:[147]"LOON",8,1
1254 [139][194](759)[178]2[167][151]759,3:[147]"PUNS",8,1
1255 [139][194](759)[178]3[167][151]760,5:[147]"SP.O",8,1
1265 [137] 4